DEFINE VAR i AS INT. 
DEFINE VARIABLE list1 AS CHARACTER FORMAT 'x(4000)'  .
DEFINE VARIABLE list2 AS CHARACTER FORMAT 'x(4000)'  .
DEFINE VARIABLE fld AS CHARACTER FORMAT 'x(50)' EXTENT 200.
DEFINE VARIABLE vad AS CHARACTER FORMAT 'x(50)' EXTENT 200.

list1 ="ps_recid,ps_HKDB,ps_par,ps_comp,ps_ref,ps_qty_per,ps_scrp_pct,ps_ps_code,ps_lt_off,ps_start,ps_end,ps_rmks,ps_op,ps_item_no,ps_mandatory,ps_exclusive,ps_process,ps_qty_type,ps_user1,ps_user2,ps_fcst_pct,ps_default,ps_group,ps_critical,ps_qty_per_b,ps_comp_um,ps_um_conv,ps_assay,ps_comm_code,ps_non_bal,ps__qad01,ps_userid,ps_mod_date,ps_batch_pct,ps_cmtindx,ps_start_ecn,ps_end_ecn,ps_joint_type,ps_cop_qty,ps_cst_pct,ps_prod_pct,ps_qty_cons,ps_qty_exch,ps_qty_diag,ps__chr01,ps__chr02,ps__dte01,ps__dte02,ps__dec01,ps__dec02,ps__log01,ps__log02,ps__qadc01,ps__qadc02,ps__qadt01,ps__qadt02,ps__qadt03,ps__qadd01,ps__qadd02,ps__qadl01,ps__qadl02".
list2 ="430867,'HK','920-1055301R','101-0483101','',1,0,'',0,'1900/01/01','06/02/13','',0,0,1,0,'','','','',100,1,'',0,1,'',0,0,'',0,0,'r004','06/02/14',0,0,'','EQE0X197        EQE0X197','',0,0,0,0,0,0,'','','1900/01/01','1900/01/01',0,0,0,0,'','','1900/01/01','1900/01/01','1900/01/01',0,0,0,0".

DO i = 1 TO 38:
    fld[i] = ENTRY(i,list1,",").
    vad[i] = ENTRY(i,list2,",").
END.

REPEAT i =1 TO 38:
    DISP i fld[i] vad[i].
END.
